unit vis_list;
interface

uses vector, stl_types;
type
  {TD = record
    p_init: procedure(const hndl: Dword);
    p_run: procedure;
    p_free: procedure;
  end;}
  vis_iterator = ^Tdata;
  Tdata = record
    data: Td;
    id: Dword;
    next, prev: vis_iterator;
  end;
type 
  Tvis_list = class(Tvector)
  private                   
    _Ibegin, _Iend: vis_Iterator;
  public

end;
implementation
end.